1 Public Class FrmPOSCASHIER
2 Dim vat_tax As Double
3 Dim amount As Double
4 Dim b_found As Boolean
5 Dim Iprev_Qty As Integer
6 Dim iz As Integer
7 Dim strCurr As String
8
9 Private Sub cmdclose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdclose.Click
10 Me.Close()
11 End Sub
12
13 Private Sub FrmPOSCASHIER_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
14 Dim sqlno As String
15 If xpass Then
16 For i = 0 To UBound(xid)
17 'MsgBox(UBound()
18 'MsgBox(xid(i))
19 'ReDim Preserve sqlno
20 sqlno = "UPDATE TBL_Stocks_Balances SET PASSWORD_INPUTED = 'No' WHERE Item_ID =" & xid(i)
21 'MsgBox(sqlno)
22 ExecuteSQLQuery(sqlno)
23 Next
24 xpass = False
25 End If
26
27 'If UCase(xUser_Access) = UCase("Cashier") And xlock = False Then
28 ' If MsgBox("Do you really want to exit the system ??", MsgBoxStyle.Exclamation + MsgBoxStyle.YesNo, "Sales and Inventory") = MsgBoxResult.Yes Then
29 ' End
30 ' Else
31 ' e.Cancel = 1
32 'End If
33 'End If
34 End Sub
35
36 Private Sub FrmPOSCASHIER_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
37 'Dim lock As Boolean
38 cmbSelectType.Text = "Order No"
39 cmbSelectType.SelectedIndex = 0
40 xlock = False
41 vat_tax = (100 + VAT) / 100
42 lbldate.Text = Format(Now, "MM/dd/yyyy")
43 lblbarcode.Text = ""
44 lbltotalamount.Text = "0.00"
45 txtbarcode.Text = ""
46 txtID.Text = ""
47 txtname.Text = ""
48 txtprice.Text = ""
49 txtqty.Text = ""
50 txtvatexempt.Text = "0.00"
51 lstItems.Items.Clear()
52 txtbarcode.Focus()
53 txtbarcode.Select()
54 howx = 0
55 txtvatable.Text = ""
56 txtvat12.Text = ""
57
58 txttotalsale.Text = ""
59 txtamountdue.Text = ""
60 Timer1.Enabled = False
61 sqlSTR = "SELECT TBL_Category_Item_File.Item_ID as 'ID', Item_Name as 'Name', TBL_Category_Item_File.Item_Description as 'Description / Item Number', TBL_Stocks_Balances.Item_Price as 'Price', Item_Reorder_Point as 'Reorder Point', Item_QTY as 'CURRENT STOCKS' " & _
62 "FROM TBL_Category_Item_File INNER JOIN " & _
63 "TBL_Stocks_Balances ON TBL_Category_Item_File.Item_ID = TBL_Stocks_Balances.Item_ID " & _
64 "WHERE TBL_Stocks_Balances.Item_QTY <= Item_Reorder_Point"
65 ExecuteSQLQuery(sqlSTR)
66 If sqlDT.Rows.Count > 0 Then
67 Timer1.Enabled = True
68 Else
69 Timer1.Enabled = False
70 lblreach.Visible = False
71 End If
72 End Sub
73
74 Private Sub cmdAccept_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAccept.Click
75 If CDbl(lbltotalamount.Text) > 0 And lstItems.Items.Count > 0 Then
76 FrmPOSPAYMENT.lblamountdue.Text = lbltotalamount.Text
77 FrmPOSPAYMENT.ShowDialog()
78 End If
79 End Sub
80
81 Private Sub lstItems_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles lstItems.KeyDown
82 ' MsgBox(e.KeyCode)
83 Dim X As Integer
84 'MsgBox(e.KeyCode)
85 If e.KeyCode = 46 Then
86 If lstItems.Items.Count > 0 Then
87 lstItems.FocusedItem.Remove()
88 lstItems.Refresh()
89 amount = 0
90 For X = 0 To lstItems.Items.Count - 1
91 amount = amount + lstItems.Items(X).SubItems(3).Text * lstItems.Items(X).SubItems(4).Text
92 lblready.Text = "Computing . . ."
93 Next
94 lblready.Text = "Ready . . ."
95 lbltotalamount.Text = Format(amount, "###,###.00") ' TOTAL AMOUNT DUE
96 txtvatable.Text = Format(amount - (amount - (amount / vat_tax)), "###,###.00") ' VATable Amount
97 txttotalsale.Text = CDbl(txtvatable.Text) - CDbl(txtvatexempt.Text) ' TOTAL SALE
98 txtvat12.Text = Format((amount - (amount / vat_tax)), "###,###.00") ' 12 % VAT
99 txtamountdue.Text = Format(CDbl(txttotalsale.Text) + CDbl(txtvat12.Text), "###,###.00") ' Amount Due
100 txtID.Text = ""
101 txtname.Text = ""
102 txtbarcode.Text = ""
103 txtqty.Text = ""
104 txtname.Text = ""
105 txtdescription.Text = ""
106 txtprice.Text = ""
107 txtbarcode.Focus()
108 txtbarcode.Select()
109 End If
110 End If
111 End Sub
112
113
114 Private Sub txtKeyDown()
115 Dim i As Integer
116 Dim xStock As Integer
117
118 amount = 0
119 xStock = 0
120 'If MsgBox("Proceed Current Data ??", MsgBoxStyle.YesNo, "Sales and Inventory") = MsgBoxResult.Yes Then
121 If txtqty.Text = "" Or txtqty.Text = "0" Then
122 MsgBox("Quantity should not be zero or null !!!", MsgBoxStyle.Exclamation, "Sales and Inventory")
123 Exit Sub
124 End If
125 If txtbarcode.Text = "" And txtdescription.Text = "" And txtID.Text = "" And txtname.Text = "" And txtprice.Text = "" Then
126 MsgBox("No Record Found, Fields Should Not Be Empty !!", MsgBoxStyle.Exclamation, "Sales and Inventory")
127 txtqty.Text = ""
128 txtbarcode.Focus()
129 txtbarcode.Select()
130 Exit Sub
131 End If
132 '-------------
133 'CHECK REORDER POINT
134 With lstItems
135 sqlSTR = "SELECT *, * FROM TBL_Category_Item_File " & _
136 "INNER JOIN TBL_Stocks_Balances ON TBL_Category_Item_File.Item_ID = TBL_Stocks_Balances.Item_ID " & _
137 "WHERE TBL_Stocks_Balances.Item_ID =" & txtID.Text
138 ExecuteSQLQuery(sqlSTR)
139 If sqlDT.Rows.Count > 0 Then
140 'MsgBox(sqlDT.Rows(0)("item_QTY") & " " & txtqty.Text)
141 'MsgBox(sqlDT.Rows(0)("Item_Reorder_Point"))
142 For i = 0 To .Items.Count - 1
143 'MsgBox(lstItems.Items(i).Text)
144 If .Items(i).Text = txtID.Text Then
145 xStock = .Items(i).SubItems(4).Text
146 End If
147 Next
148 ' MsgBox(xStock)
149 If (CDbl(sqlDT.Rows(0)("Item_QTY")) - CDbl(txtqty.Text + xStock)) <= sqlDT.Rows(0)("Item_Reorder_Point") Then
150 If (CDbl(sqlDT.Rows(0)("Item_QTY")) - CDbl(txtqty.Text + xStock)) < 0 Then
151 MsgBox("Insufficient number of stocks !! " & _
152 Chr(10) & "Current Stocks : " & sqlDT.Rows(0)("Item_QTY"), MsgBoxStyle.Critical, "Sales and Inventory")
153 Exit Sub
154 End If
155 If sqlDT.Rows(0)("PASSWORD_INPUTED") = "No" Then
156 MsgBox("Reorder point of this item has been reach !!" & _
157 Chr(10) & "-------------------------------" & _
158 Chr(10) & "Current Stocks : " & sqlDT.Rows(0)("Item_QTY") & Chr(10) & _
159 "Reorder Point : " & sqlDT.Rows(0)("Item_Reorder_Point"), MsgBoxStyle.Exclamation, "Sales and Inventory")
160 globalID = txtID.Text 'pass to globalID variable
161 ReDim Preserve xid(howx)
162 xid(howx) = txtID.Text
163 howx = howx + 1
164 sqlSTR = "UPDATE TBL_Stocks_Balances SET PASSWORD_INPUTED ='" & "Yes" & "' WHERE Item_ID =" & txtID.Text
165 ExecuteSQLQuery(sqlSTR)
166 pass = True
167 'Audit_Trail(xUser_ID, "Access to over-ride the critical of the product")
168 xpass = True
169 'FrmPASSWORD.ShowDialog()
170 ' pass = True
171 'b_found = True
172 For i = 0 To .Items.Count - 1
173 If .Items(i).Text = txtID.Text Then
174 b_found = True
175 End If
176 Next
177
178 Else
179 pass = True
180 End If
181
182 If pass Then
183 For i = 0 To .Items.Count - 1
184 If .Items(i).Text = txtID.Text Then
185 '.Items(i).Remove()
186 .Items(i).SubItems(4).Text = txtqty.Text + Iprev_Qty
187 Exit For
188 End If
189 Next
190 If b_found = False Then
191
192 .Items.Add(txtID.Text, 0)
193 .Items((.Items.Count - 1)).SubItems.Add(R_Change(txtname.Text))
194 .Items((.Items.Count - 1)).SubItems.Add(R_Change(txtdescription.Text))
195 .Items((.Items.Count - 1)).SubItems.Add(txtprice.Text)
196 .Items((.Items.Count - 1)).SubItems.Add(txtqty.Text)
197 End If
198 pass = False
199 End If
200 Else
201 For i = 0 To .Items.Count - 1
202 If .Items(i).Text = txtID.Text Then
203 '.Items(i).Remove()
204 .Items(i).SubItems(4).Text = txtqty.Text + Iprev_Qty
205 'MsgBox("1")
206 Exit For
207 End If
208 Next
209 If b_found = False Then
210 .Items.Add(txtID.Text, 0)
211 .Items((.Items.Count - 1)).SubItems.Add(R_Change(txtname.Text))
212 .Items((.Items.Count - 1)).SubItems.Add(R_Change(txtdescription.Text))
213 .Items((.Items.Count - 1)).SubItems.Add(txtprice.Text)
214 .Items((.Items.Count - 1)).SubItems.Add(txtqty.Text)
215 End If
216 End If
217 End If
218 'END CHECK REORDER POINT
219 '-------------
220 End With
221 For i = 0 To lstItems.Items.Count - 1
222 amount = amount + lstItems.Items(i).SubItems(3).Text * lstItems.Items(i).SubItems(4).Text
223 lblready.Text = "Computing . . ."
224 Next
225 lblready.Text = "Ready . . ."
226 lbltotalamount.Text = Format(amount, "###,###.00") ' TOTAL AMOUNT DUE
227 txtvatable.Text = Format(amount - (amount - (amount / vat_tax)), "###,###.00") ' VATable Amount
228 txttotalsale.Text = CDbl(txtvatable.Text) - CDbl(txtvatexempt.Text) ' TOTAL SALE
229 txtvat12.Text = Format((amount - (amount / vat_tax)), "###,###.00") ' 12 % VAT
230 txtamountdue.Text = Format(CDbl(txttotalsale.Text) + CDbl(txtvat12.Text), "###,###,###.00") ' Amount Due
231 txtID.Text = ""
232 txtname.Text = ""
233 txtbarcode.Text = ""
234 txtqty.Text = ""
235 txtname.Text = ""
236 txtdescription.Text = ""
237 txtprice.Text = ""
238 txtbarcode.Focus()
239 txtbarcode.Select()
240 'End If
241 b_found = False
242 End Sub
243
244 Private Sub txtreceiptno_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtreceiptno.KeyDown
245 Dim i As Integer
246 If e.KeyCode = 13 Then
247 amount = 0
248 'sqlSTR = "SELECT * FROM TBL_Sales_Receipt WHERE Receipt_ID =" & txtreceiptno.Text
249 sqlSTR = "SELECT * FROM TBL_Sales_Receipt " & _
250 "INNER JOIN TBL_Sales_Sold_Detail ON TBL_Sales_Receipt.Sales_ID = TBL_Sales_Sold_Detail.Sales_ID " & _
251 "WHERE TBL_Sales_Receipt.Receipt_ID =" & txtreceiptno.Text
252 ExecuteSQLQuery(sqlSTR)
253 If sqlDT.Rows.Count > 0 Then
254 For i = 0 To sqlDT.Rows.Count - 1
255 lstItems.Items.Add(sqlDT.Rows(i)("Item_ID"), 0)
256 lstItems.Items((lstItems.Items.Count - 1)).SubItems.Add(R_Change(sqlDT.Rows(i)("Item_Name")))
257 lstItems.Items((lstItems.Items.Count - 1)).SubItems.Add(R_Change(sqlDT.Rows(i)("Item_Description")))
258 lstItems.Items((lstItems.Items.Count - 1)).SubItems.Add(sqlDT.Rows(i)("Item_Price"))
259 lstItems.Items((lstItems.Items.Count - 1)).SubItems.Add(sqlDT.Rows(i)("Item_QTY"))
260 Next
261 For i = 0 To lstItems.Items.Count - 1
262 amount = amount + lstItems.Items(i).SubItems(3).Text * lstItems.Items(i).SubItems(4).Text
263 lblready.Text = "Computing . . ."
264 Next
265 lblready.Text = "Ready . . ."
266 lbltotalamount.Text = Format(amount, "###,###.00") ' TOTAL AMOUNT DUE
267 txtvatable.Text = Format(amount - (amount - (amount / vat_tax)), "###,###.00") ' VATable Amount
268 txttotalsale.Text = CDbl(txtvatable.Text) - CDbl(txtvatexempt.Text) ' TOTAL SALE
269 txtvat12.Text = Format((amount - (amount / vat_tax)), "###,###.00") ' 12 % VAT
270 txtamountdue.Text = format(CDbl(txttotalsale.Text) + CDbl(txtvat12.Text),"###,###,###.00") ' Amount Due
271 txtID.Text = ""
272 txtname.Text = ""
273 txtbarcode.Text = ""
274 txtqty.Text = ""
275 txtname.Text = ""
276 txtdescription.Text = ""
277 txtprice.Text = ""
278 txtbarcode.Focus()
279 txtbarcode.Select()
280 ' sqlSTR = "SELECT * FROM TBL_Sales_Sold_Detail WHERE Sales_ID =" & sqlDT.Rows(0)("Sales_ID")
281 Else
282 MsgBox("No Receipt Number Found !!", MsgBoxStyle.Exclamation, "Sales and Inventory")
283 Exit Sub
284 End If
285 End If
286 End Sub
287
288 Private Sub txtreceiptno_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtreceiptno.TextChanged
289 txtreceiptno.Text = str_Filter(txtreceiptno, 48, 57, 0, 0)
290 End Sub
291
292 Private Sub lstItems_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles lstItems.MouseDoubleClick
293 Dim xqty
294 'If IsNumeric(InputBox("Input quantity", "Sales and Inventory")) Then
295 ' End If
296 xqty = InputBox("Input quantity", "Sales and Inventory")
297 If IsNumeric(xqty) Then
298 'MsgBox("A")
299 If xqty > 0 Then
300 sqlSTR = "SELECT * FROM TBL_Stocks_Balances WHERE Item_ID =" & lstItems.FocusedItem.Text
301 ExecuteSQLQuery(sqlSTR)
302 If CDbl(sqlDT.Rows(0)("Item_QTY")) - CDbl(xqty) >= 0 Then
303 lstItems.FocusedItem.SubItems(4).Text = xqty
304 Else
305 MsgBox("Insufficient number of stocks !! " & _
306 Chr(10) & "Current Stocks : " & sqlDT.Rows(0)("Item_QTY"), MsgBoxStyle.Critical, "Sales and Inventory")
307 Exit Sub
308 End If
309 amount = 0
310 For i = 0 To lstItems.Items.Count - 1
311 amount = amount + lstItems.Items(i).SubItems(3).Text * lstItems.Items(i).SubItems(4).Text
312 lblready.Text = "Computing . . ."
313 Next
314 lblready.Text = "Ready . . ."
315 lbltotalamount.Text = Format(amount, "###,###.00") ' TOTAL AMOUNT DUE
316 txtvatable.Text = Format(amount - (amount - (amount / vat_tax)), "###,###.00") ' VATable Amount
317 txttotalsale.Text = CDbl(txtvatable.Text) - CDbl(txtvatexempt.Text) ' TOTAL SALE
318 txtvat12.Text = Format((amount - (amount / vat_tax)), "###,###.00") ' 12 % VAT
319 txtamountdue.Text = Format(CDbl(txttotalsale.Text) + CDbl(txtvat12.Text), "###,###.00") ' Amount Due
320 End If
321 End If
322
323 ' grpquantity.Visible = True
324 ' grpquantity.Enabled = True
325 ' GroupBox1.Enabled = False
326 ' GroupBox2.Enabled = False
327 End Sub
328
329 Private Sub lstItems_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstItems.SelectedIndexChanged
330
331 End Sub
332
333
334 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
335 iz = iz + 1
336 If (iz Mod 2) = 0 Then
337 lblreach.Visible = False
338 Else
339 lblreach.Visible = True
340 End If
341 End Sub
342
343 Private Sub cmdlock_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdlock.Click
344 'Lock = True
345 'Me.Close()
346 xlock = True
347 'FrmLOGIN.ShowDialog()
348 'Frmtest.ShowDialog()
349 Me.Close()
350 'End
351
352 End Sub
353
354 Private Sub txtbarcode_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtbarcode.KeyDown
355 Dim x As Integer
356
357 If e.KeyCode = 13 Then
358 If cmbSelectType.SelectedIndex = 0 Then
359 Call txtdown_order()
360 Else
361 If Not IsNumeric(txtbarcode.Text) Then
362 MsgBox("Barcode should be numeric !!!", MsgBoxStyle.Exclamation, "Sales and Inventory")
363 Exit Sub
364 End If
365 sqlSTR = "SELECT *, * " & _
366 "FROM TBL_Stocks_Balances " & _
367 "INNER JOIN TBL_Category_Item_File ON TBL_Stocks_Balances.Item_ID = TBL_Category_Item_File.Item_ID " & _
368 "WHERE TBL_Stocks_Balances.Item_Barcode =" & txtbarcode.Text
369 ExecuteSQLQuery(sqlSTR)
370 If sqlDT.Rows.Count > 0 Then
371 lblbarcode.Text = txtbarcode.Text
372 txtID.Text = sqlDT.Rows(0)("Item_ID")
373 txtname.Text = R_Change(sqlDT.Rows(0)("Item_Name"))
374 txtdescription.Text = R_Change(sqlDT.Rows(0)("Item_Description"))
375 txtprice.Text = sqlDT.Rows(0)("Item_Price")
376 'txtqty.Text = "1"
377 txtqty.Text = "1"
378 txtqty.Focus()
379 Iprev_Qty = 0
380 For x = 0 To lstItems.Items.Count - 1
381 'MsgBox(lstItems.Items(x).Text)
382 If lstItems.Items(x).Text = txtID.Text Then
383 Iprev_Qty = lstItems.Items(x).SubItems(4).Text ' iF item found get the quantity
384 txtqty.Select()
385 txtqty.Focus()
386 b_found = True
387 End If
388 Next
389 'If b_found <> True Then txtKeyDown()
390 'txtqty_KeyDown(txtbarcode.Text, txtbarcode.Select)
391 'Call txtqty_KeyDown(txtqty.Text, )
392 Else
393 MsgBox("No Item Data Found !!!", MsgBoxStyle.Exclamation, "Sales and Inventory")
394 txtbarcode.Text = ""
395 Exit Sub
396 End If
397 End If
398 End If
399 End Sub
400
401
402
403 Private Sub txtbarcode_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtbarcode.TextChanged
404 txtbarcode.Text = str_Filter(txtbarcode, 48, 57, 0, 0)
405 End Sub
406
407 Private Sub txtqty_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtqty.KeyDown
408 If e.KeyCode = 13 Then
409 txtKeyDown()
410 sqlSTR = "SELECT TBL_Category_Item_File.Item_ID as 'ID', Item_Name as 'Name', TBL_Category_Item_File.Item_Description as 'Description / Item Number', TBL_Stocks_Balances.Item_Price as 'Price', Item_Reorder_Point as 'Reorder Point', Item_QTY as 'CURRENT STOCKS' " & _
411 "FROM TBL_Category_Item_File INNER JOIN " & _
412 "TBL_Stocks_Balances ON TBL_Category_Item_File.Item_ID = TBL_Stocks_Balances.Item_ID " & _
413 "WHERE TBL_Stocks_Balances.Item_QTY <= Item_Reorder_Point"
414 ExecuteSQLQuery(sqlSTR)
415 If sqlDT.Rows.Count > 0 Then
416 Timer1.Enabled = True
417 Else
418 Timer1.Enabled = False
419 lblreach.Visible = False
420 End If
421 Else
422 'MsgBox(e.KeyCode)
423 'If e.KeyCode >= 48 And e.KeyCode <= 57 Then
424 ' MsgBox("test")
425 'End If
426 End If
427 End Sub
428
429 Private Sub txtqty_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtqty.TextChanged
430 txtqty.Text = str_Filter(txtqty, 48, 57, 0, 0)
431 End Sub
432
433 Private Sub cmbSelectType_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbSelectType.SelectedIndexChanged
434 txtvatable.Text = ""
435 txtvatexempt.Text = "0.00"
436 txttotalsale.Text = ""
437 txtvat12.Text = ""
438 txtamountdue.Text = ""
439 If cmbSelectType.SelectedIndex = 0 Then
440 Label1.Text = "Order No:"
441 ' txtbarcode.Enabled = False
442 'cmdopen.Enabled = True
443 txtqty.Enabled = False
444 lstItems.Items.Clear()
445 lbltotalamount.Text = "0.00"
446 txtbarcode.Text = "0"
447 txtID.Text = ""
448 txtname.Text = ""
449 txtprice.Text = ""
450 txtqty.Text = ""
451 txtvatexempt.Text = "0.00"
452 txtname.Enabled = False
453 txtbarcode.Focus()
454
455 ElseIf cmbSelectType.SelectedIndex = 1 Then
456 Label1.Text = "Barcode :"
457 ' txtbarcode.Enabled = False
458 ' cmdopen.Enabled = False
459 txtqty.Enabled = True
460 lstItems.Items.Clear()
461 lbltotalamount.Text = "0.00"
462 txtbarcode.Text = "0"
463 txtID.Text = ""
464 txtname.Text = ""
465 txtprice.Text = ""
466 txtqty.Text = ""
467 txtvatexempt.Text = "0.00"
468 lstItems.Items.Clear()
469 txtname.Enabled = True
470 txtbarcode.Focus()
471 ElseIf cmbSelectType.SelectedIndex = 2 Then
472 'txtbarcode.Enabled = True
473 End If
474 End Sub
475
476 Private Sub txtdown_order()
477 ' Dim x As Integer
478 lstItems.Items.Clear()
479 If cmbSelectType.SelectedIndex = 0 Then
480 If txtbarcode.Text <> "" Then
481 txtvatable.Text = ""
482 txtvatexempt.Text = "0.00"
483 txttotalsale.Text = ""
484 txtvat12.Text = ""
485 txtamountdue.Text = ""
486 lbltotalamount.Text = 0
487
488 sqlSTR = "SELECT * FROM TBL_Sales_Receipt " & _
489 "WHERE Sales_ID NOT IN(SELECT Sales_ID FROM TBL_Sales_Void) " & _
490 "AND Order_No = " & txtbarcode.Text
491 ' sqlSTR = "SELECT * FROM TBL_Sales_Receipt " & _
492 ' "WHERE Order_No = " & txtbarcode.Text & _
493 ' "AND Void ='" & "No" & "'"
494
495 ExecuteSQLQuery(sqlSTR)
496 If sqlDT.Rows.Count > 0 Then
497 If MsgBox("Order No. already exists in the payment receipt !! VOID this to be able to RE-COMPUTE again !! ", MsgBoxStyle.Exclamation, "Sales and Inventory") Then
498 Exit Sub
499 End If
500 End If
501 sqlSTR = "SELECT TBL_Category_Item_File.Item_ID, TBL_Category_Item_File.Item_Name, " & _
502 "TBL_Category_Item_File.Item_Description, TBL_Category_Item_File.Item_Price, " & _
503 "TBL_Orders_Detail.QTY, TBL_Stocks_Balances.Item_QTY " & _
504 "FROM (((TBL_Orders " & _
505 "INNER JOIN TBL_Orders_Detail ON TBL_Orders.Order_No = TBL_Orders_Detail.Order_No) " & _
506 "INNER JOIN TBL_Category_Item_File ON TBL_Orders_Detail.Item_ID = TBL_Category_Item_File.Item_ID) " & _
507 "INNER JOIN TBL_Stocks_Balances ON TBL_Category_Item_File.Item_ID = TBL_Stocks_Balances.Item_ID) " & _
508 "WHERE TBL_Orders.Order_No =" & txtbarcode.Text & _
509 "ORDER BY TBL_Orders_Detail.Item_ID ASC"
510
511 ' sqlSTR = "SELECT * " & _
512 ' "FROM " & _
513 ' "TBL_Category_Item_File " & _
514 ' "INNER JOIN TBL_Orders_Detail ON TBL_Category_Item_File.Item_ID = TBL_Orders_Detail.Item_ID " & _
515 ' "INNER JOIN TBL_Orders ON TBL_Orders_Detail.Order_No = TBL_Orders.Order_No " & _
516 ' "WHERE TBL_Orders.Order_No =" & txtbarcode.Text & _
517 ' "ORDER BY TBL_Orders_Detail.Item_ID ASC"
518 ExecuteSQLQuery(sqlSTR)
519 If sqlDT.Rows.Count > 0 Then
520 For i = 0 To sqlDT.Rows.Count - 1
521 If CDbl(sqlDT.Rows(i)("Item_QTY")) >= CDbl(sqlDT.Rows(i)("QTY")) Then
522 With lstItems
523 .Items.Add(sqlDT.Rows(i)("Item_ID"), 0)
524 .Items((.Items.Count - 1)).SubItems.Add(R_Change(sqlDT.Rows(i)("Item_Name")))
525 .Items((.Items.Count - 1)).SubItems.Add(sqlDT.Rows(i)("Item_Description"))
526 .Items((.Items.Count - 1)).SubItems.Add(sqlDT.Rows(i)("Item_Price"))
527 .Items((.Items.Count - 1)).SubItems.Add(sqlDT.Rows(i)("QTY"))
528 End With
529 Else
530 strCurr = "Insufficient Stock Balance " & Chr(13)
531 strCurr = strCurr & "Stock Balance : " & sqlDT.Rows(i)("Item_QTY") & Chr(13)
532 strCurr = strCurr & "Order Quantity : " & sqlDT.Rows(i)("QTY")
533 MsgBox(strCurr, MsgBoxStyle.Information, "Sales and Inventory")
534 Exit Sub
535 End If
536 Next
537 '-check back load
538 'sqlSTR = "SELECT * FROM TBL_Back_Load_Dtl WHERE Order_No =" & txtbarcode.Text
539 'ExecuteSQLQuery(sqlSTR)
540 'If sqlDT.Rows.Count > 0 Then
541 ' For x = 0 To sqlDT.Rows.Count - 1
542 ' For i = 0 To lstItems.Items.Count - 1
543 ' If lstItems.Items(i).Text = sqlDT.Rows(x)("Item_ID") Then
544 ' If CDbl(sqlDT.Rows(x)("Back_QTY")) > CDbl(lstItems.Items(i).SubItems(4).Text) Then
545 ' lstItems.Items(i).SubItems(4).Text = sqlDT.Rows(x)("Back_QTY") - CDbl(lstItems.Items(i).SubItems(4).Text)
546 'Else
547 ' lstItems.Items(i).SubItems(4).Text = CDbl(lstItems.Items(i).SubItems(4).Text) - sqlDT.Rows(x)("Back_QTY")
548 'End If
549 'End If
550 ' Next
551 ' Next
552 'End If
553 '--
554 amount = 0
555 For i = 0 To lstItems.Items.Count - 1
556 amount = amount + lstItems.Items(i).SubItems(3).Text * lstItems.Items(i).SubItems(4).Text
557 lblready.Text = "Computing . . ."
558 Next
559 lblready.Text = "Ready . . ."
560 lbltotalamount.Text = Format(amount, "###,###.00") ' TOTAL AMOUNT DUE
561 txtvatable.Text = Format(amount - (amount - (amount / vat_tax)), "###,###.00") ' VATable Amount
562 txttotalsale.Text = CDbl(txtvatable.Text) - CDbl(txtvatexempt.Text) ' TOTAL SALE
563 txtvat12.Text = Format((amount - (amount / vat_tax)), "###,###.00") ' 12 % VAT
564 txtamountdue.Text = Format(CDbl(txttotalsale.Text) + CDbl(txtvat12.Text), "###,###,###.00") ' Amount Due
565 'txtDiscount.Text = "0"
566 'txttotalamountdue.Text = lbltotalamount.Text
567 Else
568 MsgBox("No order no. found !!", MsgBoxStyle.Exclamation, "Sales and Inventory")
569 Exit Sub
570 End If
571 End If
572 End If
573 End Sub
574
575 Private Sub cmbSelectType_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbSelectType.SelectedValueChanged
576
577 End Sub
578
579 Private Sub lblreach_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblreach.Click
580
581 End Sub
582 End Class
